home *** CD-ROM | disk | FTP | other *** search
/ Aminet 31 / Aminet 31 (1999)(Schatztruhe)[!][Jun 1999].iso / Aminet / comm / www / IBrowseScripts.lha / ibrowsescripts / rexx / MiamistartY_S.rexx < prev    next >
OS/2 REXX Batch file  |  1999-03-05  |  491b  |  26 lines
  1. /* MiamistartY_S.rexx */
  2.  
  3. IF ~SHOW('Ports','YAM') THEN DO
  4.   ADDRESS 'COMMAND'
  5.   'Run YAM:YAM HIDE'
  6.   'SYS:RexxC/WaitForPort YAM'
  7. END
  8.  
  9.   ADDRESS 'COMMAND' 'Wait 30'
  10.  
  11.  
  12. ADDRESS 'COMMAND' 'assign >T:assignlist dirs'
  13. ok=open(assignfile,'T:assignlist','R')
  14. alist=readch(assignfile,60000)
  15. close(configfile)
  16. alist=UPPER(alist)
  17. NL='0a'x
  18.  
  19. IF POS(NL||'STRICQ',alist)~=0 THEN DO
  20.     IF ~SHOW('Ports','STRICQ.1') THEN DO
  21.         ADDRESS 'COMMAND'
  22.         'Run stricq:stricq'
  23.         'SYS:RexxC/WaitForPort STRICQ.1'
  24.     END
  25. END
  26.